MacWorld 1999 July

home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 July / Macworld (1999-07).dmg / Shareware World / Graphics / AutoPlotVW Package / AP Plug-ins / AP_Enter Data For Selected.vsm < prev next >
Unknown | 1999-04-10 | 12.3 KB | [MCmp/CDP3]
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`100%`	file	data	default
`100%`	siegfried	fmt/1142 VectorWorks Plugin or Script	default
id metadata
key	value
macFileType	`[MCmp]`
macFileCreator	`[CDP3]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 4d 43 56 53 00 4d 1a 41 | 50 5f 45 6e 74 65 72 20 |MCVS.M.A|P_Enter |
|00000010| 44 61 74 61 20 46 6f 72 | 20 53 65 6c 65 63 74 65 |Data For| Selecte|
|00000020| 64 00 00 0c 07 a7 74 0e | 07 a7 6c dc 00 00 00 14 |d.....t.|..l.....|
|00000030| 07 8e 9c b0 48 65 6c 70 | 00 00 00 00 07 a7 6e 50 |....Help|......nP|
|00000040| 00 00 01 80 07 a7 08 41 | 75 74 6f 50 6c 6f 74 6e |.......A|utoPlotn|
|00000050| 65 6f 75 73 d5 7c 00 00 | 00 04 00 00 00 02 00 00 |eous.|..|........|
|00000060| 00 00 00 00 76 73 00 a7 | 6e 50 07 a7 6e 5c 07 a7 |....vs..|nP..n\..|
|00000070| 73 80 00 34 00 0e 00 10 | 00 4b 00 00 00 00 01 70 |s..4....|.K.....p|
|00000080| 00 14 01 00 00 00 00 01 | 00 00 08 b2 00 00 28 8e |........|......(.|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 81 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007a0| 00 00 00 00 00 00 00 cd | 00 00 00 00 00 14 07 8e |........|........|
|000007b0| 00 a7 6e 50 07 a7 6e 5c | 07 a7 73 80 00 34 00 0e |..nP..n\|..s..4..|
|000007c0| 00 10 00 4b 00 00 00 00 | 01 70 00 14 01 00 00 00 |...K....|.p......|
|000007d0| 01 00 00 00 00 05 00 00 | 00 00 07 a9 43 b0 00 05 |........|....C...|
|000007e0| 00 98 08 43 68 61 6e 6e | 65 6c 3a 65 20 48 6f 72 |...Chann|el:e Hor|
|000007f0| 69 7a 20 66 72 6f 6d 20 | 53 52 42 42 41 41 40 40 |iz from |SRBBAA@@|
|00000800| 40 3f 3f 3f 3e 3e 3e 3d | 3d 3d 3c 3c 41 41 40 40 |@???>>>=|==<<AA@@|
|00000810| 40 3f 3f 3f 3e 3e 3e 3d | 3d 3d 3c 3c 41 41 40 40 |@???>>>=|==<<AA@@|
|00000820| 40 3f 3f 3f 3e 3e 00 00 | ff ff 00 00 3a 96 17 53 |@???>>..|....:..S|
|00000830| 70 61 63 65 20 48 6f 72 | 69 7a 20 66 72 6f 6d 20 |pace Hor|iz from |
|00000840| 53 52 2e 76 73 6d 6d 6d | 76 73 6d 73 6d 6d 03 b8 |SR.vsmmm|vsmsmm..|
|00000850| 03 00 00 80 00 81 02 00 | 00 00 3a 96 00 fa 68 0c |........|..:...h.|
|00000860| 0b 70 da 40 00 00 00 01 | 1b 3b 30 00 00 2d 00 00 |.p.@....|.;0..-..|
|00000870| 00 00 00 00 00 00 00 00 | 00 98 07 8e e0 54 13 53 |........|.....T.S|
|00000880| 70 61 63 65 20 48 6f 72 | 69 7a 20 66 72 6f 6d 20 |pace Hor|iz from |
|00000890| 53 4c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |SL......|........|
|000008a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 ff 00 00 |........|........|
|000008b0| 00 00 7b 4d 61 63 72 6f | 73 20 44 65 76 65 6c 6f |..{Macro|s Develo|
|000008c0| 70 65 64 20 62 79 20 53 | 61 6d 20 4a 6f 6e 65 73 |ped by S|am Jones|
|000008d0| 7d 0d 7b a9 20 43 6f 70 | 79 72 69 67 68 74 20 4a |}.{. Cop|yright J|
|000008e0| 75 6e 65 20 31 39 39 33 | 7d 0d 7b 69 6e 20 63 6f |une 1993|}.{in co|
|000008f0| 6e 73 75 6c 74 61 74 69 | 6f 6e 20 77 69 74 68 20 |nsultati|on with |
|00000900| 53 74 61 6e 20 50 72 65 | 73 73 6e 65 72 7d 0d 7b |Stan Pre|ssner}.{|
|00000910| 53 65 09 33 1b 30 00 00 | 00 00 00 00 28 30 09 33 |Se.3.0..|....(0.3|
|00000920| 94 a0 73 20 6d 61 63 72 | 6f 20 69 73 20 64 09 32 |..s macr|o is d.2|
|00000930| 1a 60 72 65 6e 74 20 66 | 72 6f 6d 20 65 6e 74 65 |.`rent f|rom ente|
|00000940| 72 69 6e 67 20 64 61 74 | 61 20 69 6e 20 74 68 65 |ring dat|a in the|
|00000950| 20 4f 62 6a 65 63 74 20 | 49 6e 66 6f 20 57 69 6e | Object |Info Win|
|00000960| 64 6f 77 2c 20 62 65 63 | 61 75 73 65 20 69 74 7d |dow, bec|ause it}|
|00000970| 0d 7b 77 69 6c 6c 20 71 | 75 65 72 79 20 65 61 63 |.{will q|uery eac|
|00000980| 68 20 6c 69 67 68 74 20 | 69 6e 64 69 76 69 64 75 |h light |individu|
|00000990| 61 6c 6c 79 20 66 6f 72 | 20 65 61 63 68 20 73 65 |ally for| each se|
|000009a0| 6c 65 63 74 65 64 20 6c | 69 67 68 74 2e 20 20 49 |lected l|ight.  I|
|000009b0| 74 20 77 69 6c 6c 20 71 | 75 65 72 79 20 74 68 65 |t will q|uery the|
|000009c0| 20 6c 69 67 68 74 73 20 | 66 72 6f 6d 7d 0d 7b 73 | lights |from}.{s|
|000009d0| 74 61 67 65 20 6c 65 66 | 74 20 74 6f 20 73 74 61 |tage lef|t to sta|
|000009e0| 67 65 20 72 69 67 68 74 | 7d 0d 0d 50 52 4f 43 45 |ge right|}..PROCE|
|000009f0| 44 55 52 45 20 45 6e 74 | 65 72 44 61 74 61 46 6f |DURE Ent|erDataFo|
|00000a00| 72 53 65 6c 65 63 74 65 | 64 3b 0d 09 56 41 52 0d |rSelecte|d;..VAR.|
|00000a10| 09 09 4f 62 6a 48 61 6e | 64 6c 65 3a 48 61 6e 64 |..ObjHan|dle:Hand|
|00000a20| 6c 65 3b 0d 09 09 4c 61 | 79 65 72 48 61 6e 64 6c |le;...La|yerHandl|
|00000a30| 65 3a 48 61 6e 64 6c 65 | 3b 0d 09 09 52 65 63 48 |e:Handle|;...RecH|
|00000a40| 61 6e 64 6c 65 3a 48 61 | 6e 64 6c 65 3b 0d 09 09 |andle:Ha|ndle;...|
|00000a50| 48 61 6e 64 6c 65 41 72 | 72 61 79 3a 61 72 72 61 |HandleAr|ray:arra|
|00000a60| 79 5b 31 2e 2e 31 30 30 | 5d 20 6f 66 20 48 61 6e |y[1..100|] of Han|
|00000a70| 64 6c 65 3b 0d 09 09 58 | 41 72 72 61 79 3a 61 72 |dle;...X|Array:ar|
|00000a80| 72 61 79 5b 31 2e 2e 31 | 30 30 5d 20 6f 66 20 52 |ray[1..1|00] of R|
|00000a90| 45 41 4c 3b 0d 09 09 4e | 75 6d 62 65 72 4f 66 4c |EAL;...N|umberOfL|
|00000aa0| 69 67 68 74 73 3a 69 6e | 74 65 67 65 72 3b 0d 09 |ights:in|teger;..|
|00000ab0| 09 52 65 61 6c 48 6f 6c | 64 65 72 2c 20 52 65 61 |.RealHol|der, Rea|
|00000ac0| 6c 58 2c 20 52 65 61 6c | 59 3a 52 45 41 4c 3b 0d |lX, Real|Y:REAL;.|
|00000ad0| 09 09 53 74 72 69 6e 67 | 48 6f 6c 64 65 72 3a 73 |..String|Holder:s|
|00000ae0| 74 72 69 6e 67 3b 0d 09 | 09 4f 6b 3a 62 6f 6f 6c |tring;..|.Ok:bool|
|00000af0| 65 61 6e 3b 0d 09 09 53 | 6f 72 74 42 79 4e 75 6d |ean;...S|ortByNum|
|00000b00| 3a 62 6f 6f 6c 65 61 6e | 3b 0d 09 09 50 6f 73 69 |:boolean|;...Posi|
|00000b10| 74 69 6f 6e 53 74 72 3a | 73 74 72 69 6e 67 3b 0d |tionStr:|string;.|
|00000b20| 09 09 50 6f 73 69 74 69 | 6f 6e 4d 61 74 63 68 3a |..Positi|onMatch:|
|00000b30| 73 74 72 69 6e 67 3b 0d | 09 09 69 74 65 6d 3a 69 |string;.|..item:i|
|00000b40| 6e 74 65 67 65 72 3b 0d | 0d 7b 3d 3d 3d 3d 3d 3d |nteger;.|.{======|
|00000b50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000b60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000b70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 7d 0d 0d |========|=====}..|
|00000b80| 09 50 52 4f 43 45 44 55 | 52 45 20 4d 61 6b 65 41 |.PROCEDU|RE MakeA|
|00000b90| 72 72 61 79 45 6c 65 6d | 65 6e 74 28 74 68 65 53 |rrayElem|ent(theS|
|00000ba0| 79 6d 4f 62 6a 65 63 74 | 3a 48 61 6e 64 6c 65 29 |ymObject|:Handle)|
|00000bb0| 3b 0d 09 0d 09 56 41 52 | 0d 09 09 78 2c 79 20 3a |;....VAR|...x,y :|
|00000bc0| 20 52 45 41 4c 3b 0d 09 | 09 75 6e 69 74 48 6f 6c | REAL;..|.unitHol|
|00000bd0| 64 65 72 3a 53 54 52 49 | 4e 47 3b 0d 09 0d 09 42 |der:STRI|NG;....B|
|00000be0| 45 47 49 4e 0d 09 09 47 | 65 74 53 79 6d 4c 6f 63 |EGIN...G|etSymLoc|
|00000bf0| 28 74 68 65 53 79 6d 4f | 62 6a 65 63 74 2c 78 2c |(theSymO|bject,x,|
|00000c00| 79 29 3b 0d 09 09 48 61 | 6e 64 6c 65 41 72 72 61 |y);...Ha|ndleArra|
|00000c10| 79 5b 4e 75 6d 62 65 72 | 4f 66 4c 69 67 68 74 73 |y[Number|OfLights|
|00000c20| 5d 20 3a 3d 20 74 68 65 | 53 79 6d 4f 62 6a 65 63 |] := the|SymObjec|
|00000c30| 74 3b 0d 09 09 49 46 20 | 53 6f 72 74 42 79 4e 75 |t;...IF |SortByNu|
|00000c40| 6d 20 54 48 45 4e 20 42 | 45 47 49 4e 0d 09 09 09 |m THEN B|EGIN....|
|00000c50| 75 6e 69 74 48 6f 6c 64 | 65 72 20 3a 3d 20 45 76 |unitHold|er := Ev|
|00000c60| 61 6c 53 74 72 28 74 68 | 65 53 79 6d 4f 62 6a 65 |alStr(th|eSymObje|
|00000c70| 63 74 2c 20 28 27 4c 69 | 67 68 74 73 27 2e 27 55 |ct, ('Li|ghts'.'U|
|00000c80| 6e 69 74 20 23 27 29 29 | 3b 0d 09 09 09 49 46 20 |nit #'))|;....IF |
|00000c90| 28 28 75 6e 69 74 48 6f | 6c 64 65 72 20 3d 20 27 |((unitHo|lder = '|
|00000ca0| 27 29 20 4f 52 20 28 6f | 72 64 28 63 6f 70 79 28 |') OR (o|rd(copy(|
|00000cb0| 75 6e 69 74 48 6f 6c 64 | 65 72 2c 31 2c 31 29 29 |unitHold|er,1,1))|
|00000cc0| 20 3e 20 35 37 29 29 20 | 54 48 45 4e 20 42 45 47 | > 57)) |THEN BEG|
|00000cd0| 49 4e 0d 09 09 09 09 58 | 41 72 72 61 79 5b 4e 75 |IN.....X|Array[Nu|
|00000ce0| 6d 62 65 72 4f 66 4c 69 | 67 68 74 73 5d 20 3a 3d |mberOfLi|ghts] :=|
|00000cf0| 20 30 3b 0d 09 09 09 45 | 4e 44 0d 09 09 09 45 4c | 0;....E|ND....EL|
|00000d00| 53 45 20 42 45 47 49 4e | 0d 09 09 09 09 49 46 20 |SE BEGIN|.....IF |
|00000d10| 6f 72 64 28 63 6f 70 79 | 28 75 6e 69 74 48 6f 6c |ord(copy|(unitHol|
|00000d20| 64 65 72 2c 4c 65 6e 28 | 75 6e 69 74 48 6f 6c 64 |der,Len(|unitHold|
|00000d30| 65 72 29 2c 31 29 29 20 | 3e 20 35 37 20 54 48 45 |er),1)) |> 57 THE|
|00000d40| 4e 0d 09 09 09 09 09 75 | 6e 69 74 48 6f 6c 64 65 |N......u|nitHolde|
|00000d50| 72 20 3a 3d 20 63 6f 70 | 79 28 75 6e 69 74 48 6f |r := cop|y(unitHo|
|00000d60| 6c 64 65 72 2c 31 2c 4c | 65 6e 28 75 6e 69 74 48 |lder,1,L|en(unitH|
|00000d70| 6f 6c 64 65 72 29 2d 31 | 29 3b 0d 09 09 09 09 58 |older)-1|);.....X|
|00000d80| 41 72 72 61 79 5b 4e 75 | 6d 62 65 72 4f 66 4c 69 |Array[Nu|mberOfLi|
|00000d90| 67 68 74 73 5d 20 3a 3d | 20 53 74 72 32 4e 75 6d |ghts] :=| Str2Num|
|00000da0| 28 75 6e 69 74 48 6f 6c | 64 65 72 29 3b 0d 09 09 |(unitHol|der);...|
|00000db0| 09 45 4e 44 3b 0d 09 09 | 45 4e 44 0d 09 09 45 4c |.END;...|END...EL|
|00000dc0| 53 45 20 42 45 47 49 4e | 0d 09 09 09 58 41 72 72 |SE BEGIN|....XArr|
|00000dd0| 61 79 5b 4e 75 6d 62 65 | 72 4f 66 4c 69 67 68 74 |ay[Numbe|rOfLight|
|00000de0| 73 5d 3a 3d 78 3b 0d 09 | 09 45 4e 44 3b 0d 09 09 |s]:=x;..|.END;...|
|00000df0| 4e 75 6d 62 65 72 4f 66 | 4c 69 67 68 74 73 20 3a |NumberOf|Lights :|
|00000e00| 3d 20 4e 75 6d 62 65 72 | 4f 66 4c 69 67 68 74 73 |= Number|OfLights|
|00000e10| 20 2b 20 31 3b 0d 45 4e | 44 3b 20 7b 50 52 4f 43 | + 1;.EN|D; {PROC|
|00000e20| 45 44 55 52 45 20 4d 61 | 6b 65 41 72 72 61 79 45 |EDURE Ma|keArrayE|
|00000e30| 6c 65 6d 65 6e 74 7d 0d | 09 0d 7b 2d 2d 2d 2d 2d |lement}.|..{-----|
|00000e40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e70| 2d 2d 2d 2d 7d 0d 0d 09 | 50 52 4f 43 45 44 55 52 |----}...|PROCEDUR|
|00000e80| 45 20 47 65 74 52 65 63 | 41 6e 64 4d 61 6b 65 45 |E GetRec|AndMakeE|
|00000e90| 6c 65 6d 65 6e 74 28 74 | 68 65 53 79 6d 4f 62 6a |lement(t|heSymObj|
|00000ea0| 65 63 74 3a 48 61 6e 64 | 6c 65 29 3b 0d 09 0d 09 |ect:Hand|le);....|
|00000eb0| 56 41 52 0d 09 09 70 6f | 73 69 74 69 6f 6e 4d 61 |VAR...po|sitionMa|
|00000ec0| 74 63 68 20 3a 20 53 54 | 52 49 4e 47 3b 0d 09 09 |tch : ST|RING;...|
|00000ed0| 72 65 63 48 61 6e 64 6c | 65 20 3a 20 48 61 6e 64 |recHandl|e : Hand|
|00000ee0| 6c 65 3b 0d 09 09 0d 09 | 42 45 47 49 4e 0d 09 09 |le;.....|BEGIN...|
|00000ef0| 52 65 63 48 61 6e 64 6c | 65 20 3a 3d 20 47 65 74 |RecHandl|e := Get|
|00000f00| 52 65 63 6f 72 64 28 74 | 68 65 53 79 6d 4f 62 6a |Record(t|heSymObj|
|00000f10| 65 63 74 2c 31 29 3b 0d | 09 09 49 46 20 28 52 65 |ect,1);.|..IF (Re|
|00000f20| 63 48 61 6e 64 6c 65 3c | 3e 4e 49 4c 29 20 54 48 |cHandle<|>NIL) TH|
|00000f30| 45 4e 0d 09 09 42 45 47 | 49 4e 0d 09 09 09 4d 61 |EN...BEG|IN....Ma|
|00000f40| 6b 65 41 72 72 61 79 45 | 6c 65 6d 65 6e 74 28 74 |keArrayE|lement(t|
|00000f50| 68 65 53 79 6d 4f 62 6a | 65 63 74 29 3b 0d 09 09 |heSymObj|ect);...|
|00000f60| 45 4e 44 3b 20 7b 49 46 | 20 28 52 65 63 48 61 6e |END; {IF| (RecHan|
|00000f70| 64 6c 65 3c 3e 4e 49 4c | 29 7d 0d 09 45 4e 44 3b |dle<>NIL|)}..END;|
|00000f80| 20 7b 50 52 4f 43 45 44 | 55 52 45 20 47 65 74 52 | {PROCED|URE GetR|
|00000f90| 65 63 41 6e 64 4d 61 6b | 65 45 6c 65 6d 65 6e 74 |ecAndMak|eElement|
|00000fa0| 7d 0d 09 0d 7b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |}...{---|--------|
|00000fb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000fc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000fd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 7d 0d |--------|------}.|
|00000fe0| 0d 09 46 55 4e 43 54 49 | 4f 4e 20 49 73 41 74 74 |..FUNCTI|ON IsAtt|
|00000ff0| 61 63 68 65 64 54 6f 4c | 69 67 68 74 73 28 74 68 |achedToL|ights(th|
|00001000| 65 4f 62 6a 65 63 74 3a | 48 41 4e 44 4c 45 29 3a |eObject:|HANDLE):|
|00001010| 62 6f 6f 6c 65 61 6e 3b | 0d 09 0d 09 56 41 52 0d |boolean;|....VAR.|
|00001020| 09 09 6e 75 6d 4f 66 52 | 65 63 6f 72 64 73 20 3a |..numOfR|ecords :|
|00001030| 20 69 6e 74 65 67 65 72 | 3b 0d 09 09 69 6e 64 65 | integer|;...inde|
|00001040| 78 20 3a 20 69 6e 74 65 | 67 65 72 3b 0d 09 09 72 |x : inte|ger;...r|
|00001050| 65 63 4e 61 6d 65 20 3a | 20 53 54 52 49 4e 47 3b |ecName :| STRING;|
|00001060| 0d 09 09 72 65 63 48 61 | 6e 64 6c 65 20 3a 20 48 |...recHa|ndle : H|
|00001070| 41 4e 44 4c 45 3b 0d 09 | 0d 09 42 45 47 49 4e 0d |ANDLE;..|..BEGIN.|
|00001080| 09 09 49 73 41 74 74 61 | 63 68 65 64 54 6f 4c 69 |..IsAtta|chedToLi|
|00001090| 67 68 74 73 20 3a 3d 20 | 46 61 6c 73 65 3b 0d 09 |ghts := |False;..|
|000010a0| 09 6e 75 6d 4f 66 52 65 | 63 6f 72 64 73 20 3a 3d |.numOfRe|cords :=|
|000010b0| 20 4e 75 6d 52 65 63 6f | 72 64 73 28 74 68 65 4f | NumReco|rds(theO|
|000010c0| 62 6a 65 63 74 29 3b 0d | 09 09 49 46 20 6e 75 6d |bject);.|..IF num|
|000010d0| 4f 66 52 65 63 6f 72 64 | 73 20 3e 20 30 20 54 48 |OfRecord|s > 0 TH|
|000010e0| 45 4e 0d 09 09 09 46 4f | 52 20 69 6e 64 65 78 20 |EN....FO|R index |
|000010f0| 3a 3d 20 31 20 74 6f 20 | 6e 75 6d 4f 66 52 65 63 |:= 1 to |numOfRec|
|00001100| 6f 72 64 73 20 44 4f 20 | 42 45 47 49 4e 0d 09 09 |ords DO |BEGIN...|
|00001110| 09 09 72 65 63 48 61 6e | 64 6c 65 20 3a 3d 20 47 |..recHan|dle := G|
|00001120| 65 74 52 65 63 6f 72 64 | 28 74 68 65 4f 62 6a 65 |etRecord|(theObje|
|00001130| 63 74 2c 69 6e 64 65 78 | 29 3b 0d 09 09 09 09 49 |ct,index|);.....I|
|00001140| 46 20 47 65 74 4e 61 6d | 65 28 72 65 63 48 61 6e |F GetNam|e(recHan|
|00001150| 64 6c 65 29 20 3d 20 27 | 4c 69 67 68 74 73 27 20 |dle) = '|Lights' |
|00001160| 54 48 45 4e 0d 09 09 09 | 09 09 49 73 41 74 74 61 |THEN....|..IsAtta|
|00001170| 63 68 65 64 54 6f 4c 69 | 67 68 74 73 20 3a 3d 20 |chedToLi|ghts := |
|00001180| 54 72 75 65 3b 0d 09 09 | 09 45 4e 44 3b 20 7b 46 |True;...|.END; {F|
|00001190| 4f 52 20 69 6e 64 65 78 | 20 3a 3d 20 31 20 74 6f |OR index| := 1 to|
|000011a0| 20 6e 75 6d 4f 66 52 65 | 63 6f 72 64 73 7d 0d 09 | numOfRe|cords}..|
|000011b0| 45 4e 44 3b 20 7b 46 55 | 4e 43 54 49 4f 4e 20 43 |END; {FU|NCTION C|
|000011c0| 68 65 63 6b 4f 62 6a 65 | 63 74 52 65 63 6f 72 64 |heckObje|ctRecord|
|000011d0| 7d 0d 09 0d 7b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |}...{---|--------|
|000011e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 7d 0d |--------|------}.|
|00001210| 0d 09 50 52 4f 43 45 44 | 55 52 45 20 50 72 6f 63 |..PROCED|URE Proc|
|00001220| 65 73 73 47 72 6f 75 70 | 28 67 72 70 48 61 6e 64 |essGroup|(grpHand|
|00001230| 6c 65 3a 48 61 6e 64 6c | 65 29 3b 0d 09 0d 09 56 |le:Handl|e);....V|
|00001240| 41 52 0d 09 09 67 72 70 | 4f 62 6a 65 63 74 20 3a |AR...grp|Object :|
|00001250| 20 48 61 6e 64 6c 65 3b | 0d 09 0d 09 42 45 47 49 | Handle;|....BEGI|
|00001260| 4e 0d 09 09 67 72 70 4f | 62 6a 65 63 74 20 3a 3d |N...grpO|bject :=|
|00001270| 20 46 49 6e 47 72 6f 75 | 70 28 67 72 70 48 61 6e | FInGrou|p(grpHan|
|00001280| 64 6c 65 29 3b 0d 09 09 | 57 48 49 4c 45 20 28 67 |dle);...|WHILE (g|
|00001290| 72 70 4f 62 6a 65 63 74 | 20 3c 3e 20 4e 49 4c 29 |rpObject| <> NIL)|
|000012a0| 20 44 4f 0d 09 09 42 45 | 47 49 4e 0d 09 09 09 49 | DO...BE|GIN....I|
|000012b0| 46 20 47 65 74 54 79 70 | 65 28 67 72 70 4f 62 6a |F GetTyp|e(grpObj|
|000012c0| 65 63 74 29 20 3d 20 31 | 35 20 20 54 48 45 4e 0d |ect) = 1|5  THEN.|
|000012d0| 09 09 09 09 49 46 20 49 | 73 41 74 74 61 63 68 65 |....IF I|sAttache|
|000012e0| 64 54 6f 4c 69 67 68 74 | 73 28 67 72 70 4f 62 6a |dToLight|s(grpObj|
|000012f0| 65 63 74 29 20 54 48 45 | 4e 0d 09 09 09 09 09 47 |ect) THE|N......G|
|00001300| 65 74 52 65 63 41 6e 64 | 4d 61 6b 65 45 6c 65 6d |etRecAnd|MakeElem|
|00001310| 65 6e 74 28 67 72 70 4f | 62 6a 65 63 74 29 3b 0d |ent(grpO|bject);.|
|00001320| 09 09 09 67 72 70 4f 62 | 6a 65 63 74 20 3a 3d 20 |...grpOb|ject := |
|00001330| 4e 65 78 74 4f 62 6a 28 | 67 72 70 4f 62 6a 65 63 |NextObj(|grpObjec|
|00001340| 74 29 3b 0d 09 09 45 4e | 44 3b 20 7b 57 48 49 4c |t);...EN|D; {WHIL|
|00001350| 45 20 67 72 70 4f 62 6a | 65 63 74 20 3c 3e 20 4e |E grpObj|ect <> N|
|00001360| 49 4c 7d 0d 09 45 4e 44 | 3b 20 7b 50 52 4f 43 45 |IL}..END|; {PROCE|
|00001370| 44 55 52 45 20 50 72 6f | 63 65 73 73 47 72 6f 75 |DURE Pro|cessGrou|
|00001380| 70 7d 0d 09 0d 7b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |p}...{--|--------|
|00001390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000013a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000013b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 7d |--------|-------}|
|000013c0| 0d 0d 09 50 52 4f 43 45 | 44 55 52 45 20 46 69 6c |...PROCE|DURE Fil|
|000013d0| 6c 41 72 72 61 79 3b 0d | 09 09 56 41 52 0d 09 09 |lArray;.|..VAR...|
|000013e0| 09 69 6e 64 65 78 3a 69 | 6e 74 65 67 65 72 3b 0d |.index:i|nteger;.|
|000013f0| 09 09 09 52 65 61 6c 58 | 2c 52 65 61 6c 59 3a 52 |...RealX|,RealY:R|
|00001400| 45 41 4c 3b 0d 09 09 09 | 6f 6b 3a 62 6f 6f 6c 65 |EAL;....|ok:boole|
|00001410| 61 6e 3b 0d 09 09 09 6d | 65 73 73 61 67 65 4e 75 |an;....m|essageNu|
|00001420| 6d 3a 52 45 41 4c 3b 0d | 09 09 09 6d 65 73 73 61 |m:REAL;.|...messa|
|00001430| 67 65 53 74 72 3a 73 74 | 72 69 6e 67 3b 0d 0d 09 |geStr:st|ring;...|
|00001440| 42 45 47 49 4e 0d 09 09 | 4e 75 6d 62 65 72 4f 66 |BEGIN...|NumberOf|
|00001450| 4c 69 67 68 74 73 20 3a | 3d 20 31 3b 0d 7b 20 09 |Lights :|= 1;.{ .|
|00001460| 09 43 68 65 63 6b 46 6f | 72 47 72 6f 75 70 73 3b |.CheckFo|rGroups;|
|00001470| 20 7d 0d 09 09 4f 62 6a | 48 61 6e 64 6c 65 20 3a | }...Obj|Handle :|
|00001480| 3d 20 46 53 41 63 74 4c | 61 79 65 72 3b 0d 09 09 |= FSActL|ayer;...|
|00001490| 57 48 49 4c 45 20 28 28 | 28 47 65 74 54 79 70 65 |WHILE ((|(GetType|
|000014a0| 28 4f 62 6a 48 61 6e 64 | 6c 65 29 3c 3e 31 35 29 |(ObjHand|le)<>15)|
|000014b0| 20 41 4e 44 20 28 47 65 | 74 54 79 70 65 28 4f 62 | AND (Ge|tType(Ob|
|000014c0| 6a 48 61 6e 64 6c 65 29 | 3c 3e 31 31 29 29 20 41 |jHandle)|<>11)) A|
|000014d0| 4e 44 20 28 4f 62 6a 48 | 61 6e 64 6c 65 3c 3e 4e |ND (ObjH|andle<>N|
|000014e0| 49 4c 29 20 41 4e 44 20 | 28 47 65 74 52 65 63 6f |IL) AND |(GetReco|
|000014f0| 72 64 28 4f 62 6a 48 61 | 6e 64 6c 65 2c 31 29 20 |rd(ObjHa|ndle,1) |
|00001500| 3d 20 4e 49 4c 29 29 20 | 44 4f 0d 09 09 09 09 09 |= NIL)) |DO......|
|00001510| 4f 62 6a 48 61 6e 64 6c | 65 20 3a 3d 20 4e 65 78 |ObjHandl|e := Nex|
|00001520| 74 53 4f 62 6a 28 4f 62 | 6a 48 61 6e 64 6c 65 29 |tSObj(Ob|jHandle)|
|00001530| 3b 0d 0d 09 09 49 46 20 | 4f 62 6a 48 61 6e 64 6c |;....IF |ObjHandl|
|00001540| 65 3c 3e 4e 49 4c 20 54 | 48 45 4e 0d 09 09 42 45 |e<>NIL T|HEN...BE|
|00001550| 47 49 4e 0d 09 09 09 53 | 65 74 43 75 72 73 6f 72 |GIN....S|etCursor|
|00001560| 28 57 61 74 63 68 43 29 | 3b 0d 09 09 09 4c 61 79 |(WatchC)|;....Lay|
|00001570| 65 72 48 61 6e 64 6c 65 | 20 3a 3d 20 46 4c 61 79 |erHandle| := FLay|
|00001580| 65 72 3b 0d 09 09 09 4f | 62 6a 48 61 6e 64 6c 65 |er;....O|bjHandle|
|00001590| 20 3a 3d 20 46 53 4f 62 | 6a 65 63 74 28 4c 61 79 | := FSOb|ject(Lay|
|000015a0| 65 72 48 61 6e 64 6c 65 | 29 3b 0d 09 09 09 57 48 |erHandle|);....WH|
|000015b0| 49 4c 45 20 4c 61 79 65 | 72 48 61 6e 64 6c 65 3c |ILE Laye|rHandle<|
|000015c0| 3e 4e 49 4c 20 44 4f 0d | 09 09 09 42 45 47 49 4e |>NIL DO.|...BEGIN|
|000015d0| 0d 09 09 09 09 4f 62 6a | 48 61 6e 64 6c 65 20 3a |.....Obj|Handle :|
|000015e0| 3d 20 46 53 4f 62 6a 65 | 63 74 28 4c 61 79 65 72 |= FSObje|ct(Layer|
|000015f0| 48 61 6e 64 6c 65 29 3b | 0d 09 09 09 09 57 48 49 |Handle);|.....WHI|
|00001600| 4c 45 20 4f 62 6a 48 61 | 6e 64 6c 65 3c 3e 4e 49 |LE ObjHa|ndle<>NI|
|00001610| 4c 20 44 4f 0d 09 09 09 | 09 42 45 47 49 4e 0d 09 |L DO....|.BEGIN..|
|00001620| 09 09 09 09 49 46 20 47 | 65 74 54 79 70 65 28 4f |....IF G|etType(O|
|00001630| 62 6a 48 61 6e 64 6c 65 | 29 20 3d 20 31 35 20 20 |bjHandle|) = 15  |
|00001640| 54 48 45 4e 0d 09 09 09 | 09 09 09 47 65 74 52 65 |THEN....|...GetRe|
|00001650| 63 41 6e 64 4d 61 6b 65 | 45 6c 65 6d 65 6e 74 28 |cAndMake|Element(|
|00001660| 4f 62 6a 48 61 6e 64 6c | 65 29 3b 0d 09 09 09 09 |ObjHandl|e);.....|
|00001670| 09 49 46 20 47 65 74 54 | 79 70 65 28 4f 62 6a 48 |.IF GetT|ype(ObjH|
|00001680| 61 6e 64 6c 65 29 20 3d | 20 31 31 20 54 48 45 4e |andle) =| 11 THEN|
|00001690| 0d 09 09 09 09 09 09 50 | 72 6f 63 65 73 73 47 72 |.......P|rocessGr|
|000016a0| 6f 75 70 28 4f 62 6a 48 | 61 6e 64 6c 65 29 3b 0d |oup(ObjH|andle);.|
|000016b0| 09 09 09 09 09 4f 62 6a | 48 61 6e 64 6c 65 20 3a |.....Obj|Handle :|
|000016c0| 3d 20 4e 65 78 74 53 4f | 62 6a 28 4f 62 6a 48 61 |= NextSO|bj(ObjHa|
|000016d0| 6e 64 6c 65 29 3b 0d 09 | 09 09 09 45 4e 44 3b 20 |ndle);..|...END; |
|000016e0| 20 7b 57 48 49 4c 45 20 | 4f 62 6a 48 61 6e 64 6c | {WHILE |ObjHandl|
|000016f0| 65 3c 3e 4e 49 4c 7d 0d | 09 09 09 09 4c 61 79 65 |e<>NIL}.|....Laye|
|00001700| 72 48 61 6e 64 6c 65 20 | 3a 3d 20 4e 65 78 74 4c |rHandle |:= NextL|
|00001710| 61 79 65 72 28 4c 61 79 | 65 72 48 61 6e 64 6c 65 |ayer(Lay|erHandle|
|00001720| 29 3b 0d 09 09 09 45 4e | 44 3b 20 20 7b 57 48 49 |);....EN|D;  {WHI|
|00001730| 4c 45 20 4c 61 79 65 72 | 48 61 6e 64 6c 65 3c 3e |LE Layer|Handle<>|
|00001740| 4e 49 4c 7d 0d 09 09 45 | 4e 44 3b 20 20 7b 49 46 |NIL}...E|ND;  {IF|
|00001750| 20 4f 62 6a 48 61 6e 64 | 6c 65 3c 3e 4e 49 4c 7d | ObjHand|le<>NIL}|
|00001760| 0d 09 09 4e 75 6d 62 65 | 72 4f 66 4c 69 67 68 74 |...Numbe|rOfLight|
|00001770| 73 20 3a 3d 20 4e 75 6d | 62 65 72 4f 66 4c 69 67 |s := Num|berOfLig|
|00001780| 68 74 73 20 2d 31 3b 0d | 09 45 4e 44 3b 20 7b 50 |hts -1;.|.END; {P|
|00001790| 52 4f 43 45 44 55 52 45 | 20 46 69 6c 6c 41 72 72 |ROCEDURE| FillArr|
|000017a0| 61 79 7d 0d 0d 7b 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |ay}..{==|========|
|000017b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000017c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000017d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 7d 0d 0d 09 50 52 4f |========|=}...PRO|
|000017e0| 43 45 44 55 52 45 20 53 | 6f 72 74 41 72 72 61 79 |CEDURE S|ortArray|
|000017f0| 3b 0d 09 09 56 41 52 0d | 09 09 09 69 6e 64 65 78 |;...VAR.|...index|
|00001800| 31 3a 69 6e 74 65 67 65 | 72 3b 0d 09 09 09 69 6e |1:intege|r;....in|
|00001810| 64 65 78 32 3a 69 6e 74 | 65 67 65 72 3b 0d 09 09 |dex2:int|eger;...|
|00001820| 09 6f 62 6a 65 63 74 48 | 6f 6c 64 65 72 3a 48 61 |.objectH|older:Ha|
|00001830| 6e 64 6c 65 3b 0d 09 09 | 09 78 48 6f 6c 64 65 72 |ndle;...|.xHolder|
|00001840| 3a 52 45 41 4c 3b 0d 09 | 09 09 6e 6f 43 68 61 6e |:REAL;..|..noChan|
|00001850| 67 65 3a 62 6f 6f 6c 65 | 61 6e 3b 0d 09 09 09 63 |ge:boole|an;....c|
|00001860| 69 72 53 74 72 69 6e 67 | 3a 73 74 72 69 6e 67 3b |irString|:string;|
|00001870| 0d 09 09 09 72 65 61 6c | 48 6f 6c 64 65 72 3a 52 |....real|Holder:R|
|00001880| 45 41 4c 3b 0d 09 09 09 | 64 6f 49 74 3a 62 6f 6f |EAL;....|doIt:boo|
|00001890| 6c 65 61 6e 3b 0d 09 09 | 09 6c 6f 6f 70 53 74 72 |lean;...|.loopStr|
|000018a0| 31 2c 6c 6f 6f 70 53 74 | 72 32 3a 53 54 52 49 4e |1,loopSt|r2:STRIN|
|000018b0| 47 3b 0d 0d 09 42 45 47 | 49 4e 0d 09 09 46 4f 52 |G;...BEG|IN...FOR|
|000018c0| 20 69 6e 64 65 78 31 3a | 3d 31 20 74 6f 20 4e 75 | index1:|=1 to Nu|
|000018d0| 6d 62 65 72 4f 66 4c 69 | 67 68 74 73 2d 31 20 44 |mberOfLi|ghts-1 D|
|000018e0| 4f 0d 09 09 09 46 4f 52 | 20 69 6e 64 65 78 32 3a |O....FOR| index2:|
|000018f0| 3d 69 6e 64 65 78 31 2b | 31 20 74 6f 20 4e 75 6d |=index1+|1 to Num|
|00001900| 62 65 72 4f 66 4c 69 67 | 68 74 73 20 44 4f 0d 09 |berOfLig|hts DO..|
|00001910| 09 09 42 45 47 49 4e 0d | 09 09 09 09 49 46 20 53 |..BEGIN.|....IF S|
|00001920| 6f 72 74 42 79 4e 75 6d | 20 54 48 45 4e 0d 09 09 |ortByNum| THEN...|
|00001930| 09 09 09 64 6f 49 74 20 | 3a 3d 20 58 41 72 72 61 |...doIt |:= XArra|
|00001940| 79 5b 69 6e 64 65 78 31 | 5d 3e 58 41 72 72 61 79 |y[index1|]>XArray|
|00001950| 5b 69 6e 64 65 78 32 5d | 0d 09 09 09 09 45 4c 53 |[index2]|.....ELS|
|00001960| 45 0d 09 09 09 09 09 64 | 6f 49 74 20 3a 3d 20 58 |E......d|oIt := X|
|00001970| 41 72 72 61 79 5b 69 6e | 64 65 78 31 5d 3c 58 41 |Array[in|dex1]<XA|
|00001980| 72 72 61 79 5b 69 6e 64 | 65 78 32 5d 3b 0d 09 09 |rray[ind|ex2];...|
|00001990| 09 09 49 46 20 64 6f 49 | 74 20 54 48 45 4e 0d 09 |..IF doI|t THEN..|
|000019a0| 09 09 09 42 45 47 49 4e | 0d 09 09 09 09 09 6f 62 |...BEGIN|......ob|
|000019b0| 6a 65 63 74 48 6f 6c 64 | 65 72 3a 3d 48 61 6e 64 |jectHold|er:=Hand|
|000019c0| 6c 65 41 72 72 61 79 5b | 69 6e 64 65 78 32 5d 3b |leArray[|index2];|
|000019d0| 0d 09 09 09 09 09 78 48 | 6f 6c 64 65 72 3a 3d 58 |......xH|older:=X|
|000019e0| 41 72 72 61 79 5b 69 6e | 64 65 78 32 5d 3b 0d 09 |Array[in|dex2];..|
|000019f0| 09 09 09 09 48 61 6e 64 | 6c 65 41 72 72 61 79 5b |....Hand|leArray[|
|00001a00| 69 6e 64 65 78 32 5d 3a | 3d 48 61 6e 64 6c 65 41 |index2]:|=HandleA|
|00001a10| 72 72 61 79 5b 69 6e 64 | 65 78 31 5d 3b 0d 09 09 |rray[ind|ex1];...|
|00001a20| 09 09 09 58 41 72 72 61 | 79 5b 69 6e 64 65 78 32 |...XArra|y[index2|
|00001a30| 5d 3a 3d 58 41 72 72 61 | 79 5b 69 6e 64 65 78 31 |]:=XArra|y[index1|
|00001a40| 5d 3b 0d 09 09 09 09 09 | 48 61 6e 64 6c 65 41 72 |];......|HandleAr|
|00001a50| 72 61 79 5b 69 6e 64 65 | 78 31 5d 3a 3d 6f 62 6a |ray[inde|x1]:=obj|
|00001a60| 65 63 74 48 6f 6c 64 65 | 72 3b 0d 09 09 09 09 09 |ectHolde|r;......|
|00001a70| 58 41 72 72 61 79 5b 69 | 6e 64 65 78 31 5d 3a 3d |XArray[i|ndex1]:=|
|00001a80| 78 48 6f 6c 64 65 72 3b | 0d 09 09 09 09 45 4e 44 |xHolder;|.....END|
|00001a90| 3b 20 7b 49 46 20 58 41 | 72 72 61 79 5b 69 6e 64 |; {IF XA|rray[ind|
|00001aa0| 65 78 31 5d 3e 58 41 72 | 72 61 79 5b 69 6e 64 65 |ex1]>XAr|ray[inde|
|00001ab0| 78 32 5d 7d 0d 09 09 09 | 45 4e 44 3b 20 7b 46 4f |x2]}....|END; {FO|
|00001ac0| 52 20 69 6e 64 65 78 32 | 3a 3d 69 6e 64 65 78 31 |R index2|:=index1|
|00001ad0| 2b 31 20 74 6f 20 4e 75 | 6d 62 65 72 4f 66 4c 69 |+1 to Nu|mberOfLi|
|00001ae0| 67 68 74 73 7d 0d 09 09 | 09 09 20 20 7b 46 4f 52 |ghts}...|..  {FOR|
|00001af0| 20 69 6e 64 65 78 31 3a | 3d 31 20 74 6f 20 4e 75 | index1:|=1 to Nu|
|00001b00| 6d 62 65 72 4f 66 4c 69 | 67 68 74 73 2d 31 7d 0d |mberOfLi|ghts-1}.|
|00001b10| 09 45 4e 44 3b 20 7b 50 | 52 4f 43 45 44 55 52 45 |.END; {P|ROCEDURE|
|00001b20| 20 53 6f 72 74 41 72 72 | 61 79 7d 0d 09 0d 7b 3d | SortArr|ay}...{=|
|00001b30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001b40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001b50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001b60| 3d 3d 7d 0d 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |==}...PR|OCEDURE |
|00001b70| 4d 61 6b 44 6c 6f 67 3b | 0d 09 56 41 52 0d 09 09 |MakDlog;|..VAR...|
|00001b80| 69 74 65 6d 3a 69 6e 74 | 65 67 65 72 3b 0d 09 09 |item:int|eger;...|
|00001b90| 0d 09 42 45 47 49 4e 0d | 09 09 69 74 65 6d 3a 3d |..BEGIN.|..item:=|
|00001ba0| 31 3b 0d 0d 09 09 42 45 | 47 49 4e 44 69 61 6c 6f |1;....BE|GINDialo|
|00001bb0| 67 28 31 2c 31 2c 32 32 | 2c 34 30 2c 33 31 37 2c |g(1,1,22|,40,317,|
|00001bc0| 34 35 30 29 3b 0d 09 09 | 09 41 64 64 42 75 74 74 |450);...|.AddButt|
|00001bd0| 6f 6e 28 27 45 6e 74 65 | 72 27 2c 31 2c 31 2c 31 |on('Ente|r',1,1,1|
|00001be0| 38 38 2c 33 38 30 2c 32 | 34 36 2c 34 30 30 29 3b |88,380,2|46,400);|
|00001bf0| 0d 09 09 09 41 64 64 42 | 75 74 74 6f 6e 28 27 46 |....AddB|utton('F|
|00001c00| 69 6e 69 73 68 65 64 27 | 2c 32 2c 31 2c 33 34 2c |inished'|,2,1,34,|
|00001c10| 33 38 30 2c 39 32 2c 34 | 30 30 29 3b 0d 09 09 09 |380,92,4|00);....|
|00001c20| 41 64 64 46 69 65 6c 64 | 28 27 55 6e 69 74 23 3a |AddField|('Unit#:|
|00001c30| 27 2c 33 2c 31 2c 31 34 | 2c 36 2c 38 39 2c 32 32 |',3,1,14|,6,89,22|
|00001c40| 29 3b 0d 09 09 09 41 64 | 64 46 69 65 6c 64 28 27 |);....Ad|dField('|
|00001c50| 50 6f 73 69 74 69 6f 6e | 3a 27 2c 34 2c 31 2c 31 |Position|:',4,1,1|
|00001c60| 34 2c 32 39 2c 38 39 2c | 34 35 29 3b 0d 09 09 09 |4,29,89,|45);....|
|00001c70| 41 64 64 46 69 65 6c 64 | 28 27 43 68 61 6e 6e 65 |AddField|('Channe|
|00001c80| 6c 3a 27 2c 35 2c 31 2c | 31 34 2c 35 32 2c 38 39 |l:',5,1,|14,52,89|
|00001c90| 2c 36 38 29 3b 0d 09 09 | 09 41 64 64 46 69 65 6c |,68);...|.AddFiel|
|00001ca0| 64 28 27 53 68 6f 72 74 | 20 50 75 72 70 3a 27 2c |d('Short| Purp:',|
|00001cb0| 36 2c 31 2c 31 34 2c 37 | 35 2c 38 39 2c 39 31 29 |6,1,14,7|5,89,91)|
|00001cc0| 3b 0d 09 09 09 41 64 64 | 46 69 65 6c 64 28 27 54 |;....Add|Field('T|
|00001cd0| 79 70 65 3a 27 2c 37 2c | 31 2c 31 34 2c 39 38 2c |ype:',7,|1,14,98,|
|00001ce0| 38 39 2c 31 31 34 29 3b | 0d 09 09 09 41 64 64 46 |89,114);|....AddF|
|00001cf0| 69 65 6c 64 28 27 43 69 | 72 63 75 69 74 3a 27 2c |ield('Ci|rcuit:',|
|00001d00| 38 2c 31 2c 31 34 2c 31 | 32 32 2c 38 39 2c 31 33 |8,1,14,1|22,89,13|
|00001d10| 37 29 3b 0d 09 09 09 41 | 64 64 46 69 65 6c 64 28 |7);....A|ddField(|
|00001d20| 27 43 6f 6c 6f 72 3a 27 | 2c 39 2c 31 2c 31 34 2c |'Color:'|,9,1,14,|
|00001d30| 31 34 35 2c 38 39 2c 31 | 36 30 29 3b 0d 09 09 09 |145,89,1|60);....|
|00001d40| 41 64 64 46 69 65 6c 64 | 28 27 44 69 6d 6d 65 72 |AddField|('Dimmer|
|00001d50| 3a 27 2c 31 30 2c 31 2c | 31 34 2c 31 36 38 2c 38 |:',10,1,|14,168,8|
|00001d60| 39 2c 31 38 33 29 3b 0d | 09 09 09 41 64 64 46 69 |9,183);.|...AddFi|
|00001d70| 65 6c 64 28 27 50 75 72 | 70 6f 73 65 3a 27 2c 31 |eld('Pur|pose:',1|
|00001d80| 31 2c 31 2c 31 34 2c 31 | 39 31 2c 38 39 2c 32 30 |1,1,14,1|91,89,20|
|00001d90| 36 29 3b 0d 09 09 09 41 | 64 64 46 69 65 6c 64 28 |6);....A|ddField(|
|00001da0| 27 57 61 74 74 61 67 65 | 3a 27 2c 31 32 2c 31 2c |'Wattage|:',12,1,|
|00001db0| 31 34 2c 32 31 34 2c 38 | 39 2c 32 32 39 29 3b 0d |14,214,8|9,229);.|
|00001dc0| 09 09 09 41 64 64 46 69 | 65 6c 64 28 27 54 65 6d |...AddFi|eld('Tem|
|00001dd0| 70 6c 61 74 65 3a 27 2c | 31 33 2c 31 2c 31 34 2c |plate:',|13,1,14,|
|00001de0| 32 33 37 2c 38 39 2c 32 | 35 32 29 3b 0d 09 09 09 |237,89,2|52);....|
|00001df0| 41 64 64 46 69 65 6c 64 | 28 27 4d 69 73 63 6c 23 |AddField|('Miscl#|
|00001e00| 31 3a 27 2c 31 34 2c 31 | 2c 31 34 2c 32 36 30 2c |1:',14,1|,14,260,|
|00001e10| 38 39 2c 32 37 35 29 3b | 0d 09 09 09 41 64 64 46 |89,275);|....AddF|
|00001e20| 69 65 6c 64 28 27 4d 69 | 73 63 6c 23 32 3a 27 2c |ield('Mi|scl#2:',|
|00001e30| 31 35 2c 31 2c 31 34 2c | 32 38 33 2c 38 39 2c 32 |15,1,14,|283,89,2|
|00001e40| 39 38 29 3b 0d 09 09 09 | 41 64 64 46 69 65 6c 64 |98);....|AddField|
|00001e50| 28 27 4d 69 73 63 6c 23 | 33 3a 27 2c 33 32 2c 31 |('Miscl#|3:',32,1|
|00001e60| 2c 31 34 2c 33 30 36 2c | 38 39 2c 33 32 31 29 3b |,14,306,|89,321);|
|00001e70| 0d 09 09 09 41 64 64 46 | 69 65 6c 64 28 27 4d 69 |....AddF|ield('Mi|
|00001e80| 73 63 6c 23 34 3a 27 2c | 33 33 2c 31 2c 31 34 2c |scl#4:',|33,1,14,|
|00001e90| 33 32 39 2c 38 39 2c 33 | 34 34 29 3b 0d 09 09 09 |329,89,3|44);....|
|00001ea0| 41 64 64 46 69 65 6c 64 | 28 27 4d 69 73 63 6c 23 |AddField|('Miscl#|
|00001eb0| 35 3a 27 2c 33 34 2c 31 | 2c 31 34 2c 33 35 32 2c |5:',34,1|,14,352,|
|00001ec0| 38 39 2c 33 36 37 29 3b | 0d 0d 09 09 09 41 64 64 |89,367);|.....Add|
|00001ed0| 46 69 65 6c 64 28 27 23 | 27 2c 31 36 2c 32 2c 39 |Field('#|',16,2,9|
|00001ee0| 34 2c 36 2c 32 38 33 2c | 32 32 29 3b 0d 09 09 09 |4,6,283,|22);....|
|00001ef0| 41 64 64 46 69 65 6c 64 | 28 27 50 6f 73 69 74 69 |AddField|('Positi|
|00001f00| 6f 6e 27 2c 31 37 2c 32 | 2c 39 34 2c 32 39 2c 32 |on',17,2|,94,29,2|
|00001f10| 38 33 2c 34 35 29 3b 0d | 09 09 09 41 64 64 46 69 |83,45);.|...AddFi|
|00001f20| 65 6c 64 28 27 43 68 61 | 27 2c 31 38 2c 32 2c 39 |eld('Cha|',18,2,9|
|00001f30| 34 2c 35 32 2c 32 38 33 | 2c 36 38 29 3b 0d 09 09 |4,52,283|,68);...|
|00001f40| 09 41 64 64 46 69 65 6c | 64 28 27 53 68 6f 72 74 |.AddFiel|d('Short|
|00001f50| 20 50 27 2c 31 39 2c 32 | 2c 39 34 2c 37 35 2c 32 | P',19,2|,94,75,2|
|00001f60| 38 33 2c 39 31 29 3b 0d | 09 09 09 41 64 64 46 69 |83,91);.|...AddFi|
|00001f70| 65 6c 64 28 27 75 6e 69 | 74 74 79 70 65 27 2c 32 |eld('uni|ttype',2|
|00001f80| 30 2c 32 2c 39 34 2c 39 | 38 2c 32 38 33 2c 31 31 |0,2,94,9|8,283,11|
|00001f90| 34 29 3b 0d 09 09 09 41 | 64 64 46 69 65 6c 64 28 |4);....A|ddField(|
|00001fa0| 27 43 69 72 27 2c 32 31 | 2c 32 2c 39 34 2c 31 32 |'Cir',21|,2,94,12|
|00001fb0| 32 2c 32 38 33 2c 31 33 | 37 29 3b 0d 09 09 09 41 |2,283,13|7);....A|
|00001fc0| 64 64 46 69 65 6c 64 28 | 27 63 6f 6c 6f 72 27 2c |ddField(|'color',|
|00001fd0| 32 32 2c 32 2c 39 34 2c | 31 34 35 2c 32 38 33 2c |22,2,94,|145,283,|
|00001fe0| 31 36 30 29 3b 0d 09 09 | 09 41 64 64 46 69 65 6c |160);...|.AddFiel|
|00001ff0| 64 28 27 64 69 6d 27 2c | 32 33 2c 32 2c 39 34 2c |d('dim',|23,2,94,|
|00002000| 31 36 38 2c 32 38 33 2c | 31 38 33 29 3b 0d 09 09 |168,283,|183);...|
|00002010| 09 41 64 64 46 69 65 6c | 64 28 27 70 75 72 70 27 |.AddFiel|d('purp'|
|00002020| 2c 32 34 2c 32 2c 39 34 | 2c 31 39 31 2c 32 38 33 |,24,2,94|,191,283|
|00002030| 2c 32 30 36 29 3b 0d 09 | 09 09 41 64 64 46 69 65 |,206);..|..AddFie|
|00002040| 6c 64 28 27 77 61 74 74 | 27 2c 32 35 2c 32 2c 39 |ld('watt|',25,2,9|
|00002050| 34 2c 32 31 34 2c 32 38 | 33 2c 32 32 39 29 3b 0d |4,214,28|3,229);.|
|00002060| 09 09 09 41 64 64 46 69 | 65 6c 64 28 27 74 65 6d |...AddFi|eld('tem|
|00002070| 70 27 2c 32 36 2c 32 2c | 39 34 2c 32 33 37 2c 32 |p',26,2,|94,237,2|
|00002080| 38 33 2c 32 35 32 29 3b | 0d 09 09 09 41 64 64 46 |83,252);|....AddF|
|00002090| 69 65 6c 64 28 27 4d 69 | 73 63 31 27 2c 32 37 2c |ield('Mi|sc1',27,|
|000020a0| 32 2c 39 34 2c 32 36 30 | 2c 32 38 33 2c 32 37 35 |2,94,260|,283,275|
|000020b0| 29 3b 0d 09 09 09 41 64 | 64 46 69 65 6c 64 28 27 |);....Ad|dField('|
|000020c0| 4d 69 73 63 32 27 2c 32 | 38 2c 32 2c 39 34 2c 32 |Misc2',2|8,2,94,2|
|000020d0| 38 33 2c 32 38 33 2c 32 | 39 38 29 3b 0d 09 09 09 |83,283,2|98);....|
|000020e0| 41 64 64 46 69 65 6c 64 | 28 27 4d 69 73 63 33 27 |AddField|('Misc3'|
|000020f0| 2c 32 39 2c 32 2c 39 34 | 2c 33 30 36 2c 32 38 33 |,29,2,94|,306,283|
|00002100| 2c 33 32 31 29 3b 0d 09 | 09 09 41 64 64 46 69 65 |,321);..|..AddFie|
|00002110| 6c 64 28 27 4d 69 73 63 | 34 27 2c 33 30 2c 32 2c |ld('Misc|4',30,2,|
|00002120| 39 34 2c 33 32 39 2c 32 | 38 33 2c 33 34 34 29 3b |94,329,2|83,344);|
|00002130| 0d 09 09 09 41 64 64 46 | 69 65 6c 64 28 27 4d 69 |....AddF|ield('Mi|
|00002140| 73 63 35 27 2c 33 31 2c | 32 2c 39 34 2c 33 35 32 |sc5',31,|2,94,352|
|00002150| 2c 32 38 33 2c 33 36 37 | 29 3b 0d 09 09 45 4e 44 |,283,367|);...END|
|00002160| 44 69 61 6c 6f 67 3b 0d | 09 45 4e 44 3b 20 7b 50 |Dialog;.|.END; {P|
|00002170| 52 4f 43 45 44 55 52 45 | 20 4d 61 6b 44 6c 6f 67 |ROCEDURE| MakDlog|
|00002180| 7d 0d 09 0d 7b 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |}...{===|========|
|00002190| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000021a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000021b0| 3d 3d 3d 3d 3d 3d 3d 3d | 7d 0d 0d 09 50 52 4f 43 |========|}...PROC|
|000021c0| 45 44 55 52 45 20 51 75 | 65 72 79 56 61 6c 75 65 |EDURE Qu|eryValue|
|000021d0| 73 3b 0d 09 09 43 4f 4e | 53 54 0d 09 09 09 75 6e |s;...CON|ST....un|
|000021e0| 69 74 66 6c 64 3d 31 36 | 3b 0d 09 09 09 70 6f 73 |itfld=16|;....pos|
|000021f0| 66 6c 64 3d 31 37 3b 0d | 09 09 09 63 68 61 6e 66 |fld=17;.|...chanf|
|00002200| 6c 64 3d 31 38 3b 0d 09 | 09 09 73 68 6f 72 74 66 |ld=18;..|..shortf|
|00002210| 6c 64 3d 31 39 3b 0d 09 | 09 09 74 79 70 65 66 6c |ld=19;..|..typefl|
|00002220| 64 3d 32 30 3b 0d 09 09 | 09 63 69 72 66 6c 64 3d |d=20;...|.cirfld=|
|00002230| 32 31 3b 0d 09 09 09 63 | 6f 6c 6f 72 66 6c 64 3d |21;....c|olorfld=|
|00002240| 32 32 3b 0d 09 09 09 64 | 69 6d 66 6c 64 3d 32 33 |22;....d|imfld=23|
|00002250| 3b 0d 09 09 09 70 75 72 | 70 66 6c 64 3d 32 34 3b |;....pur|pfld=24;|
|00002260| 0d 09 09 09 77 61 74 74 | 66 6c 64 3d 32 35 3b 0d |....watt|fld=25;.|
|00002270| 09 09 09 74 65 6d 70 66 | 6c 64 3d 32 36 3b 0d 09 |...tempf|ld=26;..|
|00002280| 09 09 6d 69 73 63 31 66 | 6c 64 3d 32 37 3b 0d 09 |..misc1f|ld=27;..|
|00002290| 09 09 6d 69 73 63 32 66 | 6c 64 3d 32 38 3b 0d 09 |..misc2f|ld=28;..|
|000022a0| 09 09 6d 69 73 63 33 66 | 6c 64 3d 32 39 3b 0d 09 |..misc3f|ld=29;..|
|000022b0| 09 09 6d 69 73 63 34 66 | 6c 64 3d 33 30 3b 0d 09 |..misc4f|ld=30;..|
|000022c0| 09 09 6d 69 73 63 35 66 | 6c 64 3d 33 31 3b 0d 0d |..misc5f|ld=31;..|
|000022d0| 09 09 56 41 52 0d 09 09 | 09 69 6e 64 65 78 3a 69 |..VAR...|.index:i|
|000022e0| 6e 74 65 67 65 72 3b 0d | 09 09 09 69 74 65 6d 3a |nteger;.|...item:|
|000022f0| 69 6e 74 65 67 65 72 3b | 0d 09 09 09 72 65 61 6c |integer;|....real|
|00002300| 49 6e 64 65 78 3a 52 45 | 41 4c 3b 0d 09 09 09 73 |Index:RE|AL;....s|
|00002310| 74 72 69 6e 67 48 6f 6c | 64 65 72 3a 73 74 72 69 |tringHol|der:stri|
|00002320| 6e 67 3b 0d 09 09 09 70 | 6f 73 2c 75 6e 69 74 2c |ng;....p|os,unit,|
|00002330| 63 69 72 2c 63 68 61 6e | 2c 63 6f 6c 6f 72 2c 64 |cir,chan|,color,d|
|00002340| 69 6d 2c 70 75 72 70 2c | 73 68 6f 72 74 2c 20 74 |im,purp,|short, t|
|00002350| 65 6d 70 2c 6d 69 73 63 | 31 2c 6d 69 73 63 32 2c |emp,misc|1,misc2,|
|00002360| 6d 69 73 63 33 2c 6d 69 | 73 63 34 2c 6d 69 73 63 |misc3,mi|sc4,misc|
|00002370| 35 2c 75 6e 69 74 74 79 | 70 65 2c 77 61 74 74 3a |5,unitty|pe,watt:|
|00002380| 73 74 72 69 6e 67 3b 0d | 09 09 09 68 61 6e 64 6c |string;.|...handl|
|00002390| 65 48 6f 6c 64 65 72 3a | 48 61 6e 64 6c 65 3b 0d |eHolder:|Handle;.|
|000023a0| 09 09 09 0d 09 42 45 47 | 49 4e 0d 09 09 4d 61 6b |.....BEG|IN...Mak|
|000023b0| 44 6c 6f 67 3b 0d 09 09 | 47 65 74 44 69 61 6c 6f |Dlog;...|GetDialo|
|000023c0| 67 28 31 29 3b 0d 09 09 | 46 4f 52 20 69 6e 64 65 |g(1);...|FOR inde|
|000023d0| 78 3a 3d 31 20 74 6f 20 | 4e 75 6d 62 65 72 4f 66 |x:=1 to |NumberOf|
|000023e0| 4c 69 67 68 74 73 20 44 | 4f 0d 09 09 42 45 47 49 |Lights D|O...BEGI|
|000023f0| 4e 0d 09 09 09 72 65 61 | 6c 49 6e 64 65 78 3a 3d |N....rea|lIndex:=|
|00002400| 69 6e 64 65 78 3b 0d 09 | 09 09 75 6e 69 74 3a 3d |index;..|..unit:=|
|00002410| 45 76 61 6c 53 74 72 28 | 48 61 6e 64 6c 65 41 72 |EvalStr(|HandleAr|
|00002420| 72 61 79 5b 69 6e 64 65 | 78 5d 2c 28 27 4c 69 67 |ray[inde|x],('Lig|
|00002430| 68 74 73 27 2e 27 55 6e | 69 74 20 23 27 29 29 3b |hts'.'Un|it #'));|
|00002440| 0d 09 09 09 53 65 74 46 | 69 65 6c 64 28 75 6e 69 |....SetF|ield(uni|
|00002450| 74 66 6c 64 2c 75 6e 69 | 74 29 3b 0d 09 09 09 70 |tfld,uni|t);....p|
|00002460| 6f 73 3a 3d 45 76 61 6c | 53 74 72 28 48 61 6e 64 |os:=Eval|Str(Hand|
|00002470| 6c 65 41 72 72 61 79 5b | 69 6e 64 65 78 5d 2c 28 |leArray[|index],(|
|00002480| 27 4c 69 67 68 74 73 27 | 2e 27 50 6f 73 69 74 69 |'Lights'|.'Positi|
|00002490| 6f 6e 27 29 29 3b 0d 09 | 09 09 53 65 74 46 69 65 |on'));..|..SetFie|
|000024a0| 6c 64 28 70 6f 73 66 6c | 64 2c 70 6f 73 29 3b 0d |ld(posfl|d,pos);.|
|000024b0| 09 09 09 63 69 72 3a 3d | 45 76 61 6c 53 74 72 28 |...cir:=|EvalStr(|
|000024c0| 48 61 6e 64 6c 65 41 72 | 72 61 79 5b 69 6e 64 65 |HandleAr|ray[inde|
|000024d0| 78 5d 2c 28 27 4c 69 67 | 68 74 73 27 2e 27 43 69 |x],('Lig|hts'.'Ci|
|000024e0| 72 63 75 69 74 27 29 29 | 3b 0d 09 09 09 53 65 74 |rcuit'))|;....Set|
|000024f0| 46 69 65 6c 64 28 63 69 | 72 66 6c 64 2c 63 69 72 |Field(ci|rfld,cir|
|00002500| 29 3b 0d 09 09 09 63 68 | 61 6e 3a 3d 45 76 61 6c |);....ch|an:=Eval|
|00002510| 53 74 72 28 48 61 6e 64 | 6c 65 41 72 72 61 79 5b |Str(Hand|leArray[|
|00002520| 69 6e 64 65 78 5d 2c 28 | 27 4c 69 67 68 74 73 27 |index],(|'Lights'|
|00002530| 2e 27 43 68 61 6e 6e 65 | 6c 27 29 29 3b 0d 09 09 |.'Channe|l'));...|
|00002540| 09 53 65 74 46 69 65 6c | 64 28 63 68 61 6e 66 6c |.SetFiel|d(chanfl|
|00002550| 64 2c 63 68 61 6e 29 3b | 0d 0d 09 09 09 73 68 6f |d,chan);|.....sho|
|00002560| 72 74 3a 3d 45 76 61 6c | 53 74 72 28 48 61 6e 64 |rt:=Eval|Str(Hand|
|00002570| 6c 65 41 72 72 61 79 5b | 69 6e 64 65 78 5d 2c 28 |leArray[|index],(|
|00002580| 27 4c 69 67 68 74 73 27 | 2e 27 53 68 6f 72 74 20 |'Lights'|.'Short |
|00002590| 50 75 72 70 27 29 29 3b | 0d 09 09 09 53 65 74 46 |Purp'));|....SetF|
|000025a0| 69 65 6c 64 28 73 68 6f | 72 74 66 6c 64 2c 73 68 |ield(sho|rtfld,sh|
|000025b0| 6f 72 74 29 3b 0d 09 09 | 09 63 6f 6c 6f 72 3a 3d |ort);...|.color:=|
|000025c0| 45 76 61 6c 53 74 72 28 | 48 61 6e 64 6c 65 41 72 |EvalStr(|HandleAr|
|000025d0| 72 61 79 5b 69 6e 64 65 | 78 5d 2c 28 27 4c 69 67 |ray[inde|x],('Lig|
|000025e0| 68 74 73 27 2e 27 43 6f | 6c 6f 72 27 29 29 3b 0d |hts'.'Co|lor'));.|
|000025f0| 09 09 09 53 65 74 46 69 | 65 6c 64 28 63 6f 6c 6f |...SetFi|eld(colo|
|00002600| 72 66 6c 64 2c 63 6f 6c | 6f 72 29 3b 0d 09 09 09 |rfld,col|or);....|
|00002610| 64 69 6d 3a 3d 45 76 61 | 6c 53 74 72 28 48 61 6e |dim:=Eva|lStr(Han|
|00002620| 64 6c 65 41 72 72 61 79 | 5b 69 6e 64 65 78 5d 2c |dleArray|[index],|
|00002630| 28 27 4c 69 67 68 74 73 | 27 2e 27 44 69 6d 6d 65 |('Lights|'.'Dimme|
|00002640| 72 27 29 29 3b 0d 09 09 | 09 53 65 74 46 69 65 6c |r'));...|.SetFiel|
|00002650| 64 28 64 69 6d 66 6c 64 | 2c 64 69 6d 29 3b 0d 09 |d(dimfld|,dim);..|
|00002660| 09 09 70 75 72 70 3a 3d | 45 76 61 6c 53 74 72 28 |..purp:=|EvalStr(|
|00002670| 48 61 6e 64 6c 65 41 72 | 72 61 79 5b 69 6e 64 65 |HandleAr|ray[inde|
|00002680| 78 5d 2c 28 27 4c 69 67 | 68 74 73 27 2e 27 50 75 |x],('Lig|hts'.'Pu|
|00002690| 72 70 6f 73 65 27 29 29 | 3b 0d 09 09 09 53 65 74 |rpose'))|;....Set|
|000026a0| 46 69 65 6c 64 28 70 75 | 72 70 66 6c 64 2c 70 75 |Field(pu|rpfld,pu|
|000026b0| 72 70 29 3b 0d 09 09 09 | 74 65 6d 70 3a 3d 45 76 |rp);....|temp:=Ev|
|000026c0| 61 6c 53 74 72 28 48 61 | 6e 64 6c 65 41 72 72 61 |alStr(Ha|ndleArra|
|000026d0| 79 5b 69 6e 64 65 78 5d | 2c 28 27 4c 69 67 68 74 |y[index]|,('Light|
|000026e0| 73 27 2e 27 54 65 6d 70 | 6c 61 74 65 27 29 29 3b |s'.'Temp|late'));|
|000026f0| 0d 09 09 09 53 65 74 46 | 69 65 6c 64 28 74 65 6d |....SetF|ield(tem|
|00002700| 70 66 6c 64 2c 74 65 6d | 70 29 3b 0d 09 09 09 75 |pfld,tem|p);....u|
|00002710| 6e 69 74 74 79 70 65 3a | 3d 45 76 61 6c 53 74 72 |nittype:|=EvalStr|
|00002720| 28 48 61 6e 64 6c 65 41 | 72 72 61 79 5b 69 6e 64 |(HandleA|rray[ind|
|00002730| 65 78 5d 2c 28 27 4c 69 | 67 68 74 73 27 2e 27 54 |ex],('Li|ghts'.'T|
|00002740| 79 70 65 27 29 29 3b 0d | 09 09 09 53 65 74 46 69 |ype'));.|...SetFi|
|00002750| 65 6c 64 28 74 79 70 65 | 66 6c 64 2c 75 6e 69 74 |eld(type|fld,unit|
|00002760| 74 79 70 65 29 3b 0d 09 | 09 09 77 61 74 74 3a 3d |type);..|..watt:=|
|00002770| 45 76 61 6c 53 74 72 28 | 48 61 6e 64 6c 65 41 72 |EvalStr(|HandleAr|
|00002780| 72 61 79 5b 69 6e 64 65 | 78 5d 2c 28 27 4c 69 67 |ray[inde|x],('Lig|
|00002790| 68 74 73 27 2e 27 57 61 | 74 74 61 67 65 27 29 29 |hts'.'Wa|ttage'))|
|000027a0| 3b 0d 09 09 09 53 65 74 | 46 69 65 6c 64 28 77 61 |;....Set|Field(wa|
|000027b0| 74 74 66 6c 64 2c 77 61 | 74 74 29 3b 0d 09 09 09 |ttfld,wa|tt);....|
|000027c0| 6d 69 73 63 31 3a 3d 45 | 76 61 6c 53 74 72 28 48 |misc1:=E|valStr(H|
|000027d0| 61 6e 64 6c 65 41 72 72 | 61 79 5b 69 6e 64 65 78 |andleArr|ay[index|
|000027e0| 5d 2c 28 27 4c 69 67 68 | 74 73 27 2e 27 4d 69 73 |],('Ligh|ts'.'Mis|
|000027f0| 63 6c 23 31 27 29 29 3b | 0d 09 09 09 53 65 74 46 |cl#1'));|....SetF|
|00002800| 69 65 6c 64 28 6d 69 73 | 63 31 66 6c 64 2c 6d 69 |ield(mis|c1fld,mi|
|00002810| 73 63 31 29 3b 0d 09 09 | 09 6d 69 73 63 32 3a 3d |sc1);...|.misc2:=|
|00002820| 45 76 61 6c 53 74 72 28 | 48 61 6e 64 6c 65 41 72 |EvalStr(|HandleAr|
|00002830| 72 61 79 5b 69 6e 64 65 | 78 5d 2c 28 27 4c 69 67 |ray[inde|x],('Lig|
|00002840| 68 74 73 27 2e 27 4d 69 | 73 63 6c 23 32 27 29 29 |hts'.'Mi|scl#2'))|
|00002850| 3b 0d 09 09 09 53 65 74 | 46 69 65 6c 64 28 6d 69 |;....Set|Field(mi|
|00002860| 73 63 32 66 6c 64 2c 6d | 69 73 63 32 29 3b 0d 09 |sc2fld,m|isc2);..|
|00002870| 09 09 6d 69 73 63 33 3a | 3d 45 76 61 6c 53 74 72 |..misc3:|=EvalStr|
|00002880| 28 48 61 6e 64 6c 65 41 | 72 72 61 79 5b 69 6e 64 |(HandleA|rray[ind|
|00002890| 65 78 5d 2c 28 27 4c 69 | 67 68 74 73 27 2e 27 4d |ex],('Li|ghts'.'M|
|000028a0| 69 73 63 6c 23 33 27 29 | 29 3b 0d 09 09 09 53 65 |iscl#3')|);....Se|
|000028b0| 74 46 69 65 6c 64 28 6d | 69 73 63 33 66 6c 64 2c |tField(m|isc3fld,|
|000028c0| 6d 69 73 63 33 29 3b 0d | 09 09 09 6d 69 73 63 34 |misc3);.|...misc4|
|000028d0| 3a 3d 45 76 61 6c 53 74 | 72 28 48 61 6e 64 6c 65 |:=EvalSt|r(Handle|
|000028e0| 41 72 72 61 79 5b 69 6e | 64 65 78 5d 2c 28 27 4c |Array[in|dex],('L|
|000028f0| 69 67 68 74 73 27 2e 27 | 4d 69 73 63 6c 23 34 27 |ights'.'|Miscl#4'|
|00002900| 29 29 3b 0d 09 09 09 53 | 65 74 46 69 65 6c 64 28 |));....S|etField(|
|00002910| 6d 69 73 63 34 66 6c 64 | 2c 6d 69 73 63 34 29 3b |misc4fld|,misc4);|
|00002920| 0d 09 09 09 6d 69 73 63 | 35 3a 3d 45 76 61 6c 53 |....misc|5:=EvalS|
|00002930| 74 72 28 48 61 6e 64 6c | 65 41 72 72 61 79 5b 69 |tr(Handl|eArray[i|
|00002940| 6e 64 65 78 5d 2c 28 27 | 4c 69 67 68 74 73 27 2e |ndex],('|Lights'.|
|00002950| 27 4d 69 73 63 6c 23 35 | 27 29 29 3b 0d 09 09 09 |'Miscl#5|'));....|
|00002960| 53 65 74 46 69 65 6c 64 | 28 6d 69 73 63 35 66 6c |SetField|(misc5fl|
|00002970| 64 2c 6d 69 73 63 35 29 | 3b 0d 0d 09 09 09 53 65 |d,misc5)|;.....Se|
|00002980| 6c 46 69 65 6c 64 28 75 | 6e 69 74 66 6c 64 29 3b |lField(u|nitfld);|
|00002990| 0d 09 09 09 69 74 65 6d | 3a 3d 30 3b 0d 09 09 09 |....item|:=0;....|
|000029a0| 52 45 50 45 41 54 0d 09 | 09 09 09 44 69 61 6c 6f |REPEAT..|...Dialo|
|000029b0| 67 45 76 65 6e 74 28 69 | 74 65 6d 29 3b 0d 09 09 |gEvent(i|tem);...|
|000029c0| 09 55 4e 54 49 4c 20 28 | 28 69 74 65 6d 3d 31 29 |.UNTIL (|(item=1)|
|000029d0| 20 6f 72 20 28 69 74 65 | 6d 3d 32 29 29 3b 0d 0d | or (ite|m=2));..|
|000029e0| 09 09 09 75 6e 69 74 3a | 3d 47 65 74 46 69 65 6c |...unit:|=GetFiel|
|000029f0| 64 28 75 6e 69 74 66 6c | 64 29 3b 0d 09 09 09 53 |d(unitfl|d);....S|
|00002a00| 65 74 52 46 69 65 6c 64 | 28 48 61 6e 64 6c 65 41 |etRField|(HandleA|
|00002a10| 72 72 61 79 5b 69 6e 64 | 65 78 5d 2c 27 4c 69 67 |rray[ind|ex],'Lig|
|00002a20| 68 74 73 27 2c 20 27 55 | 6e 69 74 20 23 27 2c 20 |hts', 'U|nit #', |
|00002a30| 75 6e 69 74 29 3b 0d 09 | 09 09 70 6f 73 3a 3d 47 |unit);..|..pos:=G|
|00002a40| 65 74 46 69 65 6c 64 28 | 70 6f 73 66 6c 64 29 3b |etField(|posfld);|
|00002a50| 0d 09 09 09 53 65 74 52 | 46 69 65 6c 64 28 48 61 |....SetR|Field(Ha|
|00002a60| 6e 64 6c 65 41 72 72 61 | 79 5b 69 6e 64 65 78 5d |ndleArra|y[index]|
|00002a70| 2c 27 4c 69 67 68 74 73 | 27 2c 20 27 50 6f 73 69 |,'Lights|', 'Posi|
|00002a80| 74 69 6f 6e 27 2c 20 70 | 6f 73 29 3b 0d 09 09 09 |tion', p|os);....|
|00002a90| 63 69 72 3a 3d 47 65 74 | 46 69 65 6c 64 28 63 69 |cir:=Get|Field(ci|
|00002aa0| 72 66 6c 64 29 3b 0d 09 | 09 09 53 65 74 52 46 69 |rfld);..|..SetRFi|
|00002ab0| 65 6c 64 28 48 61 6e 64 | 6c 65 41 72 72 61 79 5b |eld(Hand|leArray[|
|00002ac0| 69 6e 64 65 78 5d 2c 27 | 4c 69 67 68 74 73 27 2c |index],'|Lights',|
|00002ad0| 20 27 43 69 72 63 75 69 | 74 27 2c 20 63 69 72 29 | 'Circui|t', cir)|
|00002ae0| 3b 0d 09 09 09 63 68 61 | 6e 3a 3d 47 65 74 46 69 |;....cha|n:=GetFi|
|00002af0| 65 6c 64 28 63 68 61 6e | 66 6c 64 29 3b 0d 09 09 |eld(chan|fld);...|
|00002b00| 09 53 65 74 52 46 69 65 | 6c 64 28 48 61 6e 64 6c |.SetRFie|ld(Handl|
|00002b10| 65 41 72 72 61 79 5b 69 | 6e 64 65 78 5d 2c 27 4c |eArray[i|ndex],'L|
|00002b20| 69 67 68 74 73 27 2c 20 | 27 43 68 61 6e 6e 65 6c |ights', |'Channel|
|00002b30| 27 2c 20 63 68 61 6e 29 | 3b 0d 09 09 09 73 68 6f |', chan)|;....sho|
|00002b40| 72 74 3a 3d 47 65 74 46 | 69 65 6c 64 28 73 68 6f |rt:=GetF|ield(sho|
|00002b50| 72 74 66 6c 64 29 3b 0d | 09 09 09 53 65 74 52 46 |rtfld);.|...SetRF|
|00002b60| 69 65 6c 64 28 48 61 6e | 64 6c 65 41 72 72 61 79 |ield(Han|dleArray|
|00002b70| 5b 69 6e 64 65 78 5d 2c | 27 4c 69 67 68 74 73 27 |[index],|'Lights'|
|00002b80| 2c 20 27 53 68 6f 72 74 | 20 50 75 72 70 27 2c 20 |, 'Short| Purp', |
|00002b90| 73 68 6f 72 74 29 3b 0d | 09 09 09 63 6f 6c 6f 72 |short);.|...color|
|00002ba0| 3a 3d 47 65 74 46 69 65 | 6c 64 28 63 6f 6c 6f 72 |:=GetFie|ld(color|
|00002bb0| 66 6c 64 29 3b 0d 09 09 | 09 53 65 74 52 46 69 65 |fld);...|.SetRFie|
|00002bc0| 6c 64 28 48 61 6e 64 6c | 65 41 72 72 61 79 5b 69 |ld(Handl|eArray[i|
|00002bd0| 6e 64 65 78 5d 2c 27 4c | 69 67 68 74 73 27 2c 20 |ndex],'L|ights', |
|00002be0| 27 43 6f 6c 6f 72 27 2c | 20 63 6f 6c 6f 72 29 3b |'Color',| color);|
|00002bf0| 0d 09 09 09 64 69 6d 3a | 3d 47 65 74 46 69 65 6c |....dim:|=GetFiel|
|00002c00| 64 28 64 69 6d 66 6c 64 | 29 3b 0d 09 09 09 53 65 |d(dimfld|);....Se|
|00002c10| 74 52 46 69 65 6c 64 28 | 48 61 6e 64 6c 65 41 72 |tRField(|HandleAr|
|00002c20| 72 61 79 5b 69 6e 64 65 | 78 5d 2c 27 4c 69 67 68 |ray[inde|x],'Ligh|
|00002c30| 74 73 27 2c 20 27 44 69 | 6d 6d 65 72 27 2c 20 64 |ts', 'Di|mmer', d|
|00002c40| 69 6d 29 3b 0d 09 09 09 | 70 75 72 70 3a 3d 47 65 |im);....|purp:=Ge|
|00002c50| 74 46 69 65 6c 64 28 70 | 75 72 70 66 6c 64 29 3b |tField(p|urpfld);|
|00002c60| 0d 09 09 09 53 65 74 52 | 46 69 65 6c 64 28 48 61 |....SetR|Field(Ha|
|00002c70| 6e 64 6c 65 41 72 72 61 | 79 5b 69 6e 64 65 78 5d |ndleArra|y[index]|
|00002c80| 2c 27 4c 69 67 68 74 73 | 27 2c 20 27 50 75 72 70 |,'Lights|', 'Purp|
|00002c90| 6f 73 65 27 2c 20 70 75 | 72 70 29 3b 0d 09 09 09 |ose', pu|rp);....|
|00002ca0| 74 65 6d 70 3a 3d 47 65 | 74 46 69 65 6c 64 28 74 |temp:=Ge|tField(t|
|00002cb0| 65 6d 70 66 6c 64 29 3b | 0d 09 09 09 53 65 74 52 |empfld);|....SetR|
|00002cc0| 46 69 65 6c 64 28 48 61 | 6e 64 6c 65 41 72 72 61 |Field(Ha|ndleArra|
|00002cd0| 79 5b 69 6e 64 65 78 5d | 2c 27 4c 69 67 68 74 73 |y[index]|,'Lights|
|00002ce0| 27 2c 20 27 54 65 6d 70 | 6c 61 74 65 27 2c 20 74 |', 'Temp|late', t|
|00002cf0| 65 6d 70 29 3b 0d 09 09 | 09 6d 69 73 63 31 3a 3d |emp);...|.misc1:=|
|00002d00| 47 65 74 46 69 65 6c 64 | 28 6d 69 73 63 31 66 6c |GetField|(misc1fl|
|00002d10| 64 29 3b 0d 09 09 09 53 | 65 74 52 46 69 65 6c 64 |d);....S|etRField|
|00002d20| 28 48 61 6e 64 6c 65 41 | 72 72 61 79 5b 69 6e 64 |(HandleA|rray[ind|
|00002d30| 65 78 5d 2c 27 4c 69 67 | 68 74 73 27 2c 20 27 4d |ex],'Lig|hts', 'M|
|00002d40| 69 73 63 6c 23 31 27 2c | 20 6d 69 73 63 31 29 3b |iscl#1',| misc1);|
|00002d50| 0d 09 09 09 6d 69 73 63 | 32 3a 3d 47 65 74 46 69 |....misc|2:=GetFi|
|00002d60| 65 6c 64 28 6d 69 73 63 | 32 66 6c 64 29 3b 0d 09 |eld(misc|2fld);..|
|00002d70| 09 09 53 65 74 52 46 69 | 65 6c 64 28 48 61 6e 64 |..SetRFi|eld(Hand|
|00002d80| 6c 65 41 72 72 61 79 5b | 69 6e 64 65 78 5d 2c 27 |leArray[|index],'|
|00002d90| 4c 69 67 68 74 73 27 2c | 20 27 4d 69 73 63 6c 23 |Lights',| 'Miscl#|
|00002da0| 32 27 2c 20 6d 69 73 63 | 32 29 3b 0d 09 09 09 75 |2', misc|2);....u|
|00002db0| 6e 69 74 74 79 70 65 3a | 3d 47 65 74 46 69 65 6c |nittype:|=GetFiel|
|00002dc0| 64 28 74 79 70 65 66 6c | 64 29 3b 0d 09 09 09 53 |d(typefl|d);....S|
|00002dd0| 65 74 52 46 69 65 6c 64 | 28 48 61 6e 64 6c 65 41 |etRField|(HandleA|
|00002de0| 72 72 61 79 5b 69 6e 64 | 65 78 5d 2c 27 4c 69 67 |rray[ind|ex],'Lig|
|00002df0| 68 74 73 27 2c 20 27 54 | 79 70 65 27 2c 20 75 6e |hts', 'T|ype', un|
|00002e00| 69 74 74 79 70 65 29 3b | 0d 09 09 09 77 61 74 74 |ittype);|....watt|
|00002e10| 3a 3d 47 65 74 46 69 65 | 6c 64 28 77 61 74 74 66 |:=GetFie|ld(wattf|
|00002e20| 6c 64 29 3b 0d 09 09 09 | 53 65 74 52 46 69 65 6c |ld);....|SetRFiel|
|00002e30| 64 28 48 61 6e 64 6c 65 | 41 72 72 61 79 5b 69 6e |d(Handle|Array[in|
|00002e40| 64 65 78 5d 2c 27 4c 69 | 67 68 74 73 27 2c 20 27 |dex],'Li|ghts', '|
|00002e50| 57 61 74 74 61 67 65 27 | 2c 20 77 61 74 74 29 3b |Wattage'|, watt);|
|00002e60| 0d 09 09 09 6d 69 73 63 | 33 3a 3d 47 65 74 46 69 |....misc|3:=GetFi|
|00002e70| 65 6c 64 28 6d 69 73 63 | 33 66 6c 64 29 3b 0d 09 |eld(misc|3fld);..|
|00002e80| 09 09 53 65 74 52 46 69 | 65 6c 64 28 48 61 6e 64 |..SetRFi|eld(Hand|
|00002e90| 6c 65 41 72 72 61 79 5b | 69 6e 64 65 78 5d 2c 27 |leArray[|index],'|
|00002ea0| 4c 69 67 68 74 73 27 2c | 20 27 4d 69 73 63 6c 23 |Lights',| 'Miscl#|
|00002eb0| 33 27 2c 20 6d 69 73 63 | 33 29 3b 0d 09 09 09 6d |3', misc|3);....m|
|00002ec0| 69 73 63 34 3a 3d 47 65 | 74 46 69 65 6c 64 28 6d |isc4:=Ge|tField(m|
|00002ed0| 69 73 63 34 66 6c 64 29 | 3b 0d 09 09 09 53 65 74 |isc4fld)|;....Set|
|00002ee0| 52 46 69 65 6c 64 28 48 | 61 6e 64 6c 65 41 72 72 |RField(H|andleArr|
|00002ef0| 61 79 5b 69 6e 64 65 78 | 5d 2c 27 4c 69 67 68 74 |ay[index|],'Light|
|00002f00| 73 27 2c 20 27 4d 69 73 | 63 6c 23 34 27 2c 20 6d |s', 'Mis|cl#4', m|
|00002f10| 69 73 63 34 29 3b 0d 09 | 09 09 6d 69 73 63 35 3a |isc4);..|..misc5:|
|00002f20| 3d 47 65 74 46 69 65 6c | 64 28 6d 69 73 63 35 66 |=GetFiel|d(misc5f|
|00002f30| 6c 64 29 3b 0d 09 09 09 | 53 65 74 52 46 69 65 6c |ld);....|SetRFiel|
|00002f40| 64 28 48 61 6e 64 6c 65 | 41 72 72 61 79 5b 69 6e |d(Handle|Array[in|
|00002f50| 64 65 78 5d 2c 27 4c 69 | 67 68 74 73 27 2c 20 27 |dex],'Li|ghts', '|
|00002f60| 4d 69 73 63 6c 23 35 27 | 2c 20 6d 69 73 63 35 29 |Miscl#5'|, misc5)|
|00002f70| 3b 0d 0d 09 09 09 49 46 | 20 69 74 65 6d 3d 32 20 |;.....IF| item=2 |
|00002f80| 54 48 45 4e 0d 09 09 09 | 09 69 6e 64 65 78 3a 3d |THEN....|.index:=|
|00002f90| 4e 75 6d 62 65 72 4f 66 | 4c 69 67 68 74 73 0d 09 |NumberOf|Lights..|
|00002fa0| 09 45 4e 44 3b 20 7b 46 | 4f 52 20 69 6e 64 65 78 |.END; {F|OR index|
|00002fb0| 3a 3d 31 20 74 6f 20 4e | 75 6d 62 65 72 4f 66 4c |:=1 to N|umberOfL|
|00002fc0| 69 67 68 74 73 7d 0d 09 | 09 43 6c 72 44 69 61 6c |ights}..|.ClrDial|
|00002fd0| 6f 67 3b 0d 09 45 4e 44 | 3b 20 7b 50 52 4f 43 45 |og;..END|; {PROCE|
|00002fe0| 44 55 52 45 20 51 75 65 | 72 79 56 61 6c 75 65 73 |DURE Que|ryValues|
|00002ff0| 7d 0d 7b 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |}.{=====|========|
|00003000| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003020| 3d 3d 3d 3d 3d 3d 7d 0d | 0d 42 45 47 49 4e 0d 09 |======}.|.BEGIN..|
|00003030| 53 6f 72 74 42 79 4e 75 | 6d 20 3a 3d 20 59 4e 44 |SortByNu|m := YND|
|00003040| 69 61 6c 6f 67 28 27 53 | 6f 72 74 20 61 6e 64 20 |ialog('S|ort and |
|00003050| 45 6e 74 65 72 20 62 79 | 20 55 6e 69 74 23 20 3f |Enter by| Unit# ?|
|00003060| 3f 27 29 3b 0d 09 4d 65 | 73 73 61 67 65 28 27 46 |?');..Me|ssage('F|
|00003070| 69 6c 6c 69 6e 67 20 41 | 72 72 61 79 27 29 3b 0d |illing A|rray');.|
|00003080| 09 46 69 6c 6c 41 72 72 | 61 79 3b 0d 09 4d 65 73 |.FillArr|ay;..Mes|
|00003090| 73 61 67 65 28 27 53 6f | 72 74 41 72 72 61 79 27 |sage('So|rtArray'|
|000030a0| 29 3b 0d 09 53 6f 72 74 | 41 72 72 61 79 3b 0d 09 |);..Sort|Array;..|
|000030b0| 4d 65 73 73 61 67 65 28 | 27 51 75 65 72 79 56 61 |Message(|'QueryVa|
|000030c0| 6c 75 65 73 27 29 3b 0d | 09 51 75 65 72 79 56 61 |lues');.|.QueryVa|
|000030d0| 6c 75 65 73 3b 0d 7b 20 | 09 4d 6f 76 65 4f 62 6a |lues;.{ |.MoveObj|
|000030e0| 73 28 32 2c 30 2c 74 72 | 75 65 2c 74 72 75 65 29 |s(2,0,tr|ue,true)|
|000030f0| 3b 20 7d 0d 7b 20 09 4d | 6f 76 65 4f 62 6a 73 28 |; }.{ .M|oveObjs(|
|00003100| 2d 32 2c 30 2c 74 72 75 | 65 2c 74 72 75 65 29 3b |-2,0,tru|e,true);|
|00003110| 20 7d 0d 09 43 6c 72 4d | 65 73 73 61 67 65 3b 0d | }..ClrM|essage;.|
|00003120| 45 4e 44 3b 0d 52 75 6e | 28 45 6e 74 65 72 44 61 |END;.Run|(EnterDa|
|00003130| 74 61 46 6f 72 53 65 6c | 65 63 74 65 64 29 3b 0d |taForSel|ected);.|
+--------+-------------------------+-------------------------+--------+--------+